home *** CD-ROM | disk | FTP | other *** search
/ MacWorld UK 2000 March / MW_UK_2000_03.iso / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / metafontMode.tcl < prev    next >
Encoding:
Text File  |  1999-05-29  |  66.6 KB  |  2,192 lines  |  [TEXT/ALFA]
  1. #
  2. #
  3. #   This is metafontMode version 1.0.1
  4. #
  5. #
  6. #
  7. ##############################################################################################
  8. #                                                                                            #
  9. #   MetafontMode is a mode for the text editor Alpha: it is designed to make writing,        #
  10. #   processing and testing of Metafont source files much easier. Metafont is                 #
  11. #   the programming language written, as a companion to TeX, by Donald Knuth in              #
  12. #   order to create characters, fonts, font families (and many others things).               #
  13. #   Once Metafont mode is installed, the opening of a Metafont source file (i-e              #
  14. #   with extension .mf) invokes a new menu (called Metafont !) in the menu bar with          #
  15. #   the following features :                                                                 #
  16. #   —  easy insertion of all the basic Metafont commands (with electric stops).              #
  17. #   —  syntax colorizing.                                                                    #
  18. #   -  file marking.                                                                         #
  19. #   —  capacity to process a source file from within Alpha with various.                     #
  20. #      flags, printer modes, input base files.                                               #
  21. #   -  editing the log file.                                                                 #
  22. #   -  capacity to make the pk file; to make and to edit the property list for a font.       #
  23. #   -  capacity to process an entire folder of mf source files.                              #
  24. #                                                                                            #
  25. ##############################################################################################
  26. #
  27. # 
  28. # 
  29. # 
  30. # #    As of this release, only  CMacTeX Metafont and OzMetafont are supported (+ together with
  31. # #    gftopk and vftopl).
  32. # 
  33. # 
  34. # 
  35. #
  36. ########################################################################################
  37. #                                                                                      #
  38. #   ============================                                                       #
  39. #   Installation Instructions                                                          #
  40. #   ============================                                                       #
  41. #                                                                                      #
  42. #                                                                                      #
  43. #   Automatic installation :                                                           #
  44. #                                                                                      #
  45. #   Open the "OPEN TO INSTALL" file. Opening this file indicates to Alpha that a       #
  46. #   new package has to be installed : the procedure is automatic. Alpha knows          #
  47. #   where to store the different elements of you Metafont Mode package.                #
  48. #                                                                                      #
  49. #   Manual installation :                                                              #
  50. #                                                                                      #
  51. #   1-  put the "metafontMode.tcl" file in the "Modes" subfolder of the "Tcl"          #
  52. #   folder which is located at the same level as your Alpha application                #
  53. #                                                                                      #
  54. #   2-  put the "Metafont Help" file in the "Help" folder located at the same level    #
  55. #   as your Alpha application. Next time you launch Alpha, you will have a             #
  56. #   "Metafont Help" item in the Help menu to edit this file.                           #
  57. #                                                                                      #
  58. #   3-  launch Alpha. You need to rebuild the package indices and the tcl              #
  59. #   ones. 'Rebuild Package Indices' is in the Config->Packages menu, and "Rebuild Tcl  #
  60. #   Indices" is in the Tcl menu (press cmd-Y to open a tcl shell).                     #
  61. #                                                                                      #
  62. #   4-  quit Alpha and relaunch it : there you are.                                    #
  63. #                                                                                      #
  64. #                                                                                      #
  65. #           More explanations come in the Metafont Help file.                          #
  66. #                                                                                      #
  67. ########################################################################################
  68. ## 
  69.  ### 
  70.  ## Author :  Bernard Desgraupes  
  71.  ## e-mail:  berdesg@easynet.fr
  72.  ## www: <http://perso.easynet.fr/~berdesg/metafont.html>
  73.  ###
  74. ##
  75. ## 
  76.  # Copyright (c) 1999  Bernard Desgraupes
  77.  # 
  78.  # This    program    is free    software; you can redistribute it and/or modify
  79.  # it under    the    terms of the GNU General Public    License    as published by
  80.  # the Free    Software Foundation; either    version    2 of the License, or
  81.  # (at your    option)    any    later version.
  82.  # 
  83.  # This    program    is distributed in the hope that    it will    be useful,
  84.  # but WITHOUT ANY WARRANTY; without even the implied warranty of
  85.  # MERCHANTABILITY or FITNESS FOR A    PARTICULAR PURPOSE.     See the
  86.  # GNU General Public License for more details.
  87.  # 
  88.  # You should have received    a copy of the GNU General Public License
  89.  # along with this program;    if not,    write to the Free Software
  90.  # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139,    USA.
  91.  ##
  92.  
  93.  
  94. alpha::mode Mf 1.0.1 mfMenu {*.mf *.fpl} mfMenu {
  95.     addMenu mfMenu "Metafont"
  96. } maintainer {
  97.     "Bernard Desgraupes" berdesg@easynet.fr <http://perso.easynet.fr/~berdesg/metafont.html> 
  98. } uninstall this-file help {file "Metafont Help"}
  99.  
  100.  
  101. #######   Preferences  #############
  102.  
  103. newPref f wordWrap {0} Mf
  104. newPref f autoMark {1} Mf
  105. # Flags for the six Metafont particular processing options
  106. # By default none of them is set
  107. newPref f gfcorners 0 Mf  shadowMf
  108. newPref f imagerules 0 Mf   shadowMf
  109. newPref f nodisplays 0 Mf   shadowMf
  110. newPref f notransforms 0 Mf   shadowMf
  111. newPref f screenstrokes 0 Mf   shadowMf
  112. newPref f screenchars 0 Mf   shadowMf
  113. # Name of the printer mode for Metafont : for instance cx at 300dpi, 
  114. # canonex at 600dpi etc.
  115. newPref v mfModeForPrinter canonex Mf
  116. newPref v prefixString {% } Mf
  117. newPref v funcExpr {[a-zA-Z_]*\(} Mf
  118. newPref v wordBreak {[_\w]+} Mf
  119. newPref v wordBreakPreface {[^_\w]} Mf
  120. # Here we allow the user to define his own 
  121. # denomination for the beginchar macro :
  122. newPref v userBeginchar beginchar Mf
  123. # Default colo(u)rs for the keywords
  124. newPref v commentColor red Mf
  125. newPref v funcColor cyan Mf
  126. newPref v keywordColor blue Mf
  127. newPref v stringColor green Mf
  128. # Metafont menu, when used for the first time, must determine
  129. # which Metafont application is installed. The lookForMetafont proc will do
  130. # that automatically, but this choice can be overriden afterwards
  131. # in the mode specific prefs.
  132. newPref v mfAppSig {} Mf 
  133. # Folder where Metafont sends its output to
  134. newPref folder outputFolder $HOME Mf
  135. # Where is the file modes.mf defining the parameters of 
  136. # all the possible Metafont modes :
  137. newPref file pathToModesMfFile {} Mf
  138. # Where is the file plain.mf defining the Metafont's basic macros :
  139. newPref file pathToPlainMfFile {} Mf
  140.  
  141.  
  142. ### 
  143.  #     Initialization of some variables
  144. ###
  145. set Mffilename [file tail [win::Current]]
  146. set chosenMode proof
  147. set mag 1
  148. set magstep 0
  149. set magflag 0
  150. set magstepflag 0
  151. set Mfbasefile ""
  152. set Mfbasefileflag 0
  153. set tfmfile ""
  154. set prefixtfm "("
  155. set prefixfpl "("
  156. set prefixgf "("
  157. set prefixlog "("
  158. set fromfolder "("
  159. set mfwd $HOME
  160. set mfset 0
  161. set gfall(CMT3) "("
  162. set gfall(OzMF) "("
  163.  
  164.  
  165.  
  166. proc mfMenu {} {}
  167.  
  168. hook::register activateHook rebuildOtherfiles Mf
  169.  
  170. #############  Select the Metafont application when using this mode for the first time #############
  171.  
  172. if {$MfmodeVars(mfAppSig)== ""} {
  173.     set mfsignlist [list "CMacTex mf" "OzMetafont" "DirectTeXPro mf"]
  174.     set sig [listpick -p "Select your Metafont application"  $mfsignlist]
  175.     switch $sig {
  176.         "CMacTex mf" {set mfAppSig "CMT3"}
  177.         "OzMetafont" {set mfAppSig "OzMF"}
  178.         "DirectTeXPro mf" {set mfAppSig "TeX+"}
  179.         }
  180.     removeArrDef MfmodeVars mfAppSig
  181.     set MfmodeVars(mfAppSig) $mfAppSig
  182.      addArrDef MfmodeVars mfAppSig $mfAppSig
  183. }
  184.  
  185. ##############################################
  186. #                                            #
  187. #   #########   Metafont Menu  ###########   #
  188. #                                            #
  189. ##############################################
  190.  
  191. menu::buildProc mfMenu menu::buildMf
  192. menu::buildProc otherFiles menu::buildotherFiles
  193.  
  194. proc menu::buildMf {} {
  195.     global mfMenu otherFiles Mffilename
  196.     set ma {
  197.     "/M<B<OswitchToMetafont"
  198.     "(-"
  199.     "/R<UrunTheBuffer"
  200.     "saveAndRun"
  201.     "<S<B/FrunAFile"
  202.     "<S<I<B/FrunAFolder"
  203.     "(-"
  204. {Menu -n "metafontMode" -p choosemodeProc {
  205.     "proof"
  206.     "smoke"
  207.     "localfont"
  208.     "userDefined"
  209.     }
  210. }
  211. {Menu -n "processingOptions" -p processingoptProc {
  212.     "mag..."
  213.     "magstep..."
  214.     "baseFile..."
  215.     "(-"
  216.     "gfcorners"
  217.     "imagerules"
  218.     "nodisplays"
  219.     "notransforms"
  220.     "screenchars"
  221.     "screenstrokes"
  222.     "(-"
  223.     "clearAllOptions"
  224.     }
  225. }
  226.     "(-"
  227. }
  228.     lappend ma [list Menu -n otherFiles {}]
  229.     append ma {
  230.       "(-"
  231.       "newFontTemplate"
  232.       "(-"
  233. {Menu -n "variables" -p variablesProc {    
  234.     " boolean"
  235.     " numeric"
  236.     " pair"
  237.     " path"
  238.     " pen"
  239.     " picture"
  240.     " string"
  241.     " transform"
  242.     }
  243. }
  244. {Menu -n "boolean" -p booleanProc {    
  245.     " charexists"
  246.     " cycle"
  247.     " false"
  248.     " known"
  249.     " true"
  250.     " unknown"
  251.     }
  252. }
  253. {Menu -n "functions" -p functionsProc {    
  254.     " angle"
  255.     " ceilling"
  256.     " floor"
  257.     " cosd"
  258.     " sind"
  259.     " mexp"
  260.     " mlog"
  261.     " sqrt"
  262.     "(-"
  263.     " eps"
  264.     " epsilon"
  265.     " infinity"
  266.     "(-"
  267.     " round"
  268.     " hround"
  269.     " vround"
  270.     "(-"
  271.     " solve"
  272.     " tolerance"
  273.     "(-"
  274.     " normaldeviate"
  275.     " randomseed"
  276.     " uniformdeviate"
  277.     " whatever"
  278.     }
  279. }
  280. {Menu -n "positioning" -p positioningProc {    
  281.     " clearxy"
  282.     " direction"
  283.     " directionpoint"
  284.     " directiontime"
  285.     " penoffset"
  286.     " point…of"
  287.     " precontrol…of"
  288.     " postcontrol…of"
  289.     " intersectionpoint"
  290.     " intersectiontimes"
  291.     "(-"
  292.     " good.bot"
  293.     " good.lft"
  294.     " good.rt"
  295.     " good.top"
  296.     " good.x"
  297.     " good.y"
  298.     "(-"
  299.     " xpart"
  300.     " xxpart"
  301.     " xypart"
  302.     " ypart"
  303.     " yxpart"
  304.     " yypart"
  305.     }
  306. }
  307. {Menu -n "paths" -p pathsProc {    
  308.     " flex"
  309.     " fullcircle"
  310.     " halfcircle"
  311.     " quartercircle"
  312.     " superellipse"
  313.     " unitsquare"
  314.     "(-"
  315.     " makepath"
  316.     " interpath"
  317.     " subpath"
  318.     " tensepath"
  319.     " counterclockwise"
  320.     " reverse"
  321.     "(-"
  322.     " turningnumber"
  323.     }
  324. }
  325. {Menu -n "pens" -p pensProc {    
  326.     " clear_pen_memory"
  327.     " clearpen"
  328.     " currentpen"
  329.     " makepen"
  330.     " nullpen"
  331.     " savepen"
  332.     "(-"
  333.     " pencircle"
  334.     " pencircle..."
  335.     " pensquare"
  336.     " pensquare..."
  337.     " penrazor"
  338.     " penspeck"
  339.     "(-"
  340.     " pen_bot"
  341.     " pen_lft"
  342.     " pen_rt"
  343.     " pen_top"
  344.     " pickup"
  345.     }
  346. }
  347. {Menu -n "pictures" -p picturesProc {    
  348.     " blankpicture"
  349.     " clearit"
  350.     " currentpicture"
  351.     " nullpicture"
  352.     "(-"
  353.     " totalweight"
  354.     " unitpixel"
  355.     }
  356. }
  357. {Menu -n "strings" -p stringsProc {    
  358.     " ditto"
  359.     " jobname"
  360.     " readstring"
  361.     " substring"
  362.     }
  363. }
  364. {Menu -n "transformations" -p transformationsProc {    
  365.     " currenttransform"
  366.     " identity"
  367.     " inverse"
  368.     " reflectedabout"
  369.     " rotated"
  370.     " rotatedaround"
  371.     " scaled"
  372.     " shifted"
  373.     " slanted"
  374.     " transformed"
  375.     " xscaled"
  376.     " yscaled"
  377.     " zscaled"
  378.     }
  379. }
  380. {Menu -n "definitions" -p definitionsProc {    
  381.     " def…enddef"
  382.     " suffix"
  383.     " expr"
  384.     " text"
  385.     " primarydef…enddef"
  386.     " secondarydef…enddef"
  387.     " tertiarydef…enddef"
  388.     " vardef…enddef"
  389.     " begingroup…endgroup"
  390.     }
  391. }
  392. {Menu -n "conditions" -p conditionsProc {    
  393.     " for…endfor"
  394.     " forever…endfor"
  395.     " forsuffixes…endfor"
  396.     " if…fi"
  397.     " if…elseif…else…fi"
  398.     " downto"
  399.     " upto"
  400.     " step…until"
  401.     " exitif"
  402.     " exitunless"
  403.     }
  404. }
  405. {Menu -n "drawing" -p drawingProc {    
  406.     " addto…also"
  407.     " addto…contour"
  408.     " addto…contour…withpen"
  409.     " addto…contour…withweight"
  410.     " addto…doublepath…withpen"
  411.     " addto…doublepath…withweight"
  412.     " cull…dropping"
  413.     " cull…dropping…withweight"
  414.     " cull…keeping"
  415.     " cull…keeping…withweight"
  416.     " cullit"
  417.     " cutdraw"
  418.     " cutoff"
  419.     " draw"
  420.     " drawdot"
  421.     " erase"
  422.     " fill"
  423.     " filldraw"
  424.     " penpos"
  425.     " penstroke"
  426.     " undraw"
  427.     " undrawdot"
  428.     " unfill"
  429.     " unfilldraw"
  430.     }
  431. }
  432. {Menu -n "characters" -p charactersProc {    
  433.     " beginchar…endchar"
  434.     " extra_beginchar"
  435.     " extra_endchar"
  436.     }
  437. }
  438. {Menu -n "units" -p unitsProc {    
  439.     " blacker"
  440.     " fillin"
  441.     " o_correction"
  442.     " fix_units"
  443.     " mode_setup"
  444.     " pixels_per_inchs"
  445.     }
  446. }
  447. {Menu -n "pixellisation" -p pixellisationProc {    
  448.     " define_pixels"
  449.     " define_blacker_pixels"
  450.     " define_good_x_pixels"
  451.     " define_good_y_pixels"
  452.     " define_corrected_pixels"
  453.     " define_horizontal_corrected_pixels"
  454.     " define_whole_pixels"
  455.     " define_whole_blacker_pixels"
  456.     " define_whole_vertical_pixels"
  457.     " define_whole_vertical_blacker_pixels"
  458.     }
  459. }
  460. {Menu -n "fontDefinitions" -p fontdefinitionsProc {    
  461.     " charlist"
  462.     " extensible"
  463.     " font_coding_scheme"
  464.     " font_extra_space"
  465.     " font_identifier"
  466.     " font_normal_shrink"
  467.     " font_normal_space"
  468.     " font_normal_stretch"
  469.     " font_quad"
  470.     " font_size"
  471.     " font_slant"
  472.     " font_x_height"
  473.     " fontdimen"
  474.     " headerbytes"
  475.     " ligtable"
  476.     " kern"
  477.     }
  478. }
  479. {Menu -n "displaying" -p displayingProc {    
  480.     " currentwindow"
  481.     " display…inwindow"
  482.     " openwindow…from…to…at"
  483.     " screen_cols"
  484.     " screen_rows"
  485.     " screenrule"
  486.     }
  487. }
  488. {Menu -n "output" -p outputProc {    
  489.     " openit"
  490.     " shipit"
  491.     " showit"
  492.     "(-"
  493.     " labels"
  494.     " labels…range…thru"
  495.     " penlabels"
  496.     " makelabel"
  497.     " makegrid..."
  498.     "(-"
  499.     " proofoffset"
  500.     " proofrule"
  501.     " proofrulethickness"
  502.     "(-"
  503.     " grayfont"
  504.     " labelfont"
  505.     " slantfont"
  506.     " titlefont"
  507.     }
  508. }
  509. {Menu -n "debugging" -p debuggingProc {    
  510.     " errhelp"
  511.     " errmessage"
  512.     " message"
  513.     " stop"
  514.     "(-"
  515.     " show"
  516.     " showdependencies"
  517.     " showstats"
  518.     " showtoken"
  519.     " showvariable"
  520.     "(-"
  521.     " loggingall"
  522.     " tracingall"
  523.     " tracingnone"
  524.     "(-"
  525.     " batchmode"
  526.     " errorstopmode"
  527.     " nonstopmode"
  528.     " scrollmode"
  529.     }
  530. }
  531. {Menu -n "misc" -p miscProc {    
  532.     " capsule_def"
  533.     " expandafter"
  534.     " gobble"
  535.     " gobbled"
  536.     " interact"
  537.     " numtok"
  538.     " scantokens"
  539.     " special"
  540.     " numspecial"
  541.     }
  542. }
  543. {Menu -n "internalVariables" -p varintProc {    
  544.     " autorounding"
  545.     " designsize"
  546.     " fontmaking"
  547.     " granularity"
  548.     " pausing"
  549.     " proofing"
  550.     " showstopping"
  551.     " smoothing"
  552.     "(-"
  553.     " charcode"
  554.     " chardp"
  555.     " chardx"
  556.     " chardy"
  557.     " charext"
  558.     " charht"
  559.     " charic"
  560.     " charwd"
  561.     "(-"
  562.     " hppp"
  563.     " vppp"
  564.     "(-"
  565.     " xoffset"
  566.     " yoffset"
  567.     "(-"
  568.     " day"
  569.     " month"
  570.     " year"
  571.     " time"
  572.     "(-"
  573.     " tracingcapsules"
  574.     " tracingchoices"
  575.     " tracingcommands"
  576.     " tracingedges"
  577.     " tracingequations"
  578.     " tracingmacros"
  579.     " tracingonline"
  580.     " tracingoutput"
  581.     " tracingpens"
  582.     " tracingrestores"
  583.     " tracingspecs"
  584.     " tracingstats"
  585.     " tracingtitles"
  586.     " turningcheck"
  587.     " warningcheck"
  588.     }
  589. }
  590. }
  591.     return [list build $ma mfmenuProc {otherFiles} $mfMenu]
  592. }
  593.  
  594. proc menu::buildotherFiles {} {
  595.     global Mffilename MfmodeVars outputFolder fromfolder
  596.     global prefixtfm prefixfpl prefixgf prefixlog gfall mfAppSig
  597.       set rootname [file rootname [file tail [win::Current]]]
  598.     set logname "${rootname}.log"
  599.     
  600. #     lappend ma "<S<I${fromfolder}convertAllGfToPk"
  601.     
  602.     set ma "<S${prefixgf}convertGfToPk"
  603.     lappend ma "<S<I$gfall($MfmodeVars(mfAppSig))convertAllGfToPk"
  604.     lappend ma     "<E<S${prefixtfm}convert $rootname.tfm to pl"
  605.     lappend ma     "<S<I${fromfolder}convertAllTfmToPl"
  606.     lappend ma     "tfmToPl..."
  607.     lappend ma     "(-"
  608.     lappend ma    "<S${prefixlog}open $rootname.log"
  609.     lappend ma    "<S<I${fromfolder}openAllLogFiles"
  610.     lappend ma "<E<S${prefixfpl}openPropertyList" 
  611.     lappend ma "<S<I${fromfolder}openAllPropertyLists" 
  612.     foreach i {"(-"  "(-" "openModes.mf" "openPlain.mf"} {
  613.     lappend ma $i
  614.         }
  615.     append ma {
  616.       "(-"
  617. {Menu -n "removeFiles…" -p removefilesProc {    
  618.     "allLogFiles" 
  619.     "allGfFiles" 
  620.     "allPkFiles" 
  621.     "allTfmFiles"
  622.     "allPlFiles"
  623.     "(-"
  624.     "allOfThem"
  625.     }
  626. }
  627. }
  628.     return [list build $ma otherfilesProc]
  629. }
  630.  
  631. menu::buildSome mfMenu 
  632.  
  633. markMenuItem metafontMode proof 1
  634.  
  635. ################################################################
  636. #                     Menus and submenus procs                 #
  637. ################################################################
  638.  
  639.  
  640. ############  Top menu procs ##############
  641.  
  642. proc mfmenuProc {menu item} {
  643.     global fullMffilename tailMffilename MfmodeVars cmdline
  644.     switch $item {
  645.         "switchToMetafont" {app::launchFore CMT3}
  646.         "runTheBuffer" {
  647.             set fullMffilename [win::Current]
  648.             set tailMffilename [file tail $fullMffilename]
  649.             checkdirty
  650.             runbufferProc}
  651.         "saveAndRun" {
  652.             save
  653.             set fullMffilename [win::Current]
  654.             set tailMffilename [file tail $fullMffilename]
  655.             runbufferProc
  656.             }
  657.         "runAFile" {
  658.             catch {getfile "Find a \".mf\" file to process"}  fullMffilename
  659.             edit $fullMffilename
  660.             if [file exists $fullMffilename] {
  661.                 set tailMffilename [file tail $fullMffilename]
  662.                 runbufferProc
  663.                 }
  664.             }
  665.         "runAFolder" {runafolderProc}
  666.         "newFontTemplate" {newtemplateProc}
  667.     }
  668. }
  669.  
  670. proc findmoderes {} {
  671.     global MfmodeVars mfAppSig chosenMode
  672.     if {$chosenMode == "proof"} {
  673.     return [list "proof" "2602"]
  674.     }
  675.     if {$chosenMode == "smoke"} {
  676.     return [list "smoke" "2602"]
  677.     }
  678.     set rootname [file rootname [file tail [win::Current]]]
  679.     if {[file exists $MfmodeVars(pathToModesMfFile) ]} {
  680.         message "reading $MfmodeVars(pathToModesMfFile)"
  681.         catch {open "$MfmodeVars(pathToModesMfFile)"} fileId
  682.         catch {read $fileId} textlog
  683.         # First we find the value of localfont
  684.         if {$chosenMode == "localfont"} {
  685.             regexp {localfont([^\;]*)\;} $textlog blabla localMfmode
  686.             set localMfmode [string trim $localMfmode " :="]
  687.         } elseif {$chosenMode == "smoke"} {
  688.             set localMfmode $chosenMode
  689.         } else {
  690.             set localMfmode $MfmodeVars(mfModeForPrinter)            
  691.         }
  692.         # Then we find the resolution in dpi
  693.         set start [string first "mode_def $localMfmode" $textlog]
  694.         if {$start == -1} {
  695.             alertnote "Unknown mode $localMfmode."
  696.             return
  697.         }
  698.         set textlog [string range $textlog $start end]
  699.         regexp {pixels_per_inch[^0-9)]*([0-9]*)} $textlog blabla resdpi
  700.         return [list $localMfmode $resdpi]
  701.     } else {
  702.         alertnote "Can't find file modes.mf : set the path in the Current Mode Prefs."
  703.         return [list "proof" "2602"]
  704.     }
  705. }
  706.  
  707. proc otherfilesProc {submenu item} {
  708.     global rootname MfmodeVars outputFolder mfAppSig gffile mfwd prefixfpl
  709.     switch -regexp $item {
  710.         "convertGfToPk"  {
  711.             findrootnameProc
  712.             findgfFile
  713.             dopkProc
  714.         }
  715.         "convert.*\.tfm"  {
  716. #             if [app::isRunning CMTk] {sendQuitEvent 'CMTk'}
  717.             findoutputfolder
  718.             findrootnameProc
  719.             doplProc
  720.             set prefixfpl ""
  721.             menu::buildSome otherFiles
  722.             editplProc
  723.         }
  724.         "tfmToPl..." {
  725.             global tfmfile rootname
  726.             catch {getfile "Select a tfm file"}  tfmfile
  727.             if {$tfmfile == ""} {
  728.                 return} else {
  729.                     set rootname [file rootname [file tail $tfmfile]]
  730.                     doplProc
  731.                     editplProc
  732.                     set tfmfile ""
  733.                     }
  734.                 }
  735.         "open.*\.log$" {
  736.                 findrootnameProc
  737.                 switch $MfmodeVars(mfAppSig) {
  738.                     "CMT3" {     
  739.                         findoutputfolder
  740.                         if {![file exists $MfmodeVars(outputFolder):${rootname}.log]} {
  741.                             alertnote "Can't find file ${rootname}.log."
  742.                             return} else {
  743.                                 edit -r "$MfmodeVars(outputFolder):${rootname}.log"
  744.                             }
  745.                         }
  746.                         "OzMF" {
  747.                             set logdirname [file dirname [win::Current]]
  748.                             if {![file exists $logdirname:${rootname}.log]} {
  749.                                 alertnote "Can't find file ${rootname}.log. Check that the \"delete_log\" flag in OzMetafont configs is set to false."
  750.                                 return} else {
  751.                                     edit -r "$logdirname:${rootname}.log"
  752.                                 }
  753.                             }
  754.                         "TeX+"  {
  755.                             alertnote "Support for Direct Tex Pro still to be done. Sorry !"
  756.                         }
  757.                     }
  758.                 }
  759.         "openPropertyList" {
  760.                     findrootnameProc
  761.                     editplProc
  762.                 }
  763.         "convertAllGfToPk" {convertallProc gftopk}
  764.         "convertAllTfmToPl" {convertallProc vftopl}
  765.         "openAllLogFiles" {allAuxfilesProc log}
  766.         "openAllPropertyLists" {
  767.                     switch $MfmodeVars(mfAppSig) {
  768.                         "CMT3" {allAuxfilesProc fpl}
  769.                         "OzMF" {allAuxfilesProc pl}
  770.                         "TeX+" {allAuxfilesProc pl}
  771.                     }
  772.                 }
  773.         "openModes.mf" {openmodesmfProc}
  774.         "openPlain.mf" {openplainmfProc}
  775.     }
  776. }
  777.         
  778. # Here we define a proc to dimm/undimm the items of the OtherFiles submenu
  779. # depending on the existence of auxiliary files
  780. proc rebuildOtherfiles {name} {
  781.     global mfMenu otherFiles Mffilename
  782.     global MfmodeVars outputFolder mfAppSig
  783.     global prefixgf prefixlog prefixtfm prefixfpl
  784.     set Mffilename [file tail [win::Current]]
  785.     switch $MfmodeVars(mfAppSig) {
  786.         "CMT3" {     
  787.             set Mfdirname $MfmodeVars(outputFolder)
  788.         }
  789.         "OzMF" {
  790.             set Mfdirname [file dirname [win::Current]]
  791.             }
  792.         "TeX+"  {
  793.             alertnote "Support for Direct Tex Pro still to be done. Sorry !"
  794.             set Mfdirname $MfmodeVars(outputFolder)
  795.         }
  796.     }
  797.     if {![regexp ".mf" $Mffilename] && ![regexp ".fpl" $Mffilename]} {
  798.         set prefixgf "("
  799.         set prefixlog "("
  800.         set prefixtfm "("
  801.         set prefixfpl "("
  802.         } else {
  803.             set rootname [file rootname $Mffilename]
  804.             set logname "${rootname}.log"
  805.             if [file exists $Mfdirname:${logname}] {
  806.                 set prefixgf ""
  807.                 set prefixlog ""
  808.             } else {
  809.                 set    prefixgf "("
  810.                 set    prefixlog "("}
  811.             if [file exists $Mfdirname:${rootname}.tfm] {
  812.                 set prefixtfm ""
  813.             } else {
  814.                 set    prefixtfm "("}
  815.             if [file exists $Mfdirname:${rootname}.fpl] {
  816.                 set prefixfpl ""
  817.                 } elseif [file exists $Mfdirname:${rootname}.pl] {
  818.                     set prefixfpl ""
  819.                 } else {
  820.                 set    prefixfpl "("}
  821.         }
  822.     menu::buildSome otherFiles
  823. }
  824.  
  825. # Here are the procs to process the source files
  826. proc runbufferProc {} {
  827.     global fullMffilename tailMffilename cmdline addcmdline MfmodeVars mfAppSig 
  828.     global prefixtfm prefixfpl prefixgf prefixlog chosenMode resol
  829.     if {[string length $MfmodeVars(mfAppSig)]} {
  830.         app::launchFore "$MfmodeVars(mfAppSig)"
  831.         switch $MfmodeVars(mfAppSig) {
  832.             "CMT3" {     
  833.                 buildCMTcmdLine
  834.                 doMfscript
  835.             }
  836.             "OzMF" {
  837.                 if {$chosenMode == "proof"} {
  838.                     doMfscript
  839.                     updateprefixes
  840.                 } else {
  841.                     set resol "[findmoderes]"
  842.                     buildOZmakeLine
  843.                     createmakefile
  844.                     runmakefile
  845.                     updateprefixes
  846.                 }
  847.             }
  848.             "TeX+"  {
  849.                 app::launchFore "ALFA"
  850.                 alertnote "Support for Direct Tex Pro still to be done. Sorry !"
  851.                 return
  852.             }
  853.         }
  854.         menu::buildSome otherFiles
  855.     } else {
  856.         alertnote "No Mf app. selected. Select it in the Current mode preferences."
  857.     }
  858. }
  859.  
  860. proc runafolderProc {} {
  861.     global fullMffilename tailMffilename cmdline folderpath fromfolder
  862.     global MfmodeVars outputFolder mfAppSig chosenMode resol filesindir ext
  863.     catch {get_directory -p "Select a folder."} folderpath
  864.     if {$folderpath == ""} { return }
  865.     set ext ".mf"
  866.     set filesindir [glob -nocomplain "$folderpath:*$ext"]
  867.     set longueur [llength $filesindir]
  868.     if {$longueur == 0} {
  869.         alertnote "No \"$ext\" file in this folder."
  870.         return } 
  871.     if {[string length $MfmodeVars(mfAppSig)]} {
  872.         app::launchFore "$MfmodeVars(mfAppSig)"
  873.         switch $MfmodeVars(mfAppSig) {
  874.             "CMT3" {domaketexpk}
  875.             "OzMF" {domaketexpk}
  876.             "TeX+"  {
  877.                 app::launchFore "ALFA"
  878.                 alertnote "Support for Direct Tex Pro still to be done. Sorry !"
  879.                 return
  880.             }
  881.         }
  882.         set fromfolder ""
  883.         menu::buildSome otherFiles
  884.     } else {
  885.         alertnote "No Mf app. selected. Select it in the Current mode preferences."
  886.     }                    
  887. }    
  888.     
  889.  
  890. proc domaketexpk {} {
  891.     global fullMffilename tailMffilename cmdline folderpath fromfolder
  892.     global chosenMode resol filesindir
  893.     global MfmodeVars outputFolder mfAppSig ext
  894.     if {[file exists "$folderpath:tmpall.make" ]} {
  895.         removeFile "$folderpath:tmpall.make"
  896.     }
  897.     switch [buttonAlert "OK to process all \"$ext\" files from $folderpath ?  This folder must be on a path searched by Metafont." "yes" "cancel" ] {
  898.         "yes" {
  899.             set fileId [open "$folderpath:tmpall.make" a+] 
  900.             set resol  "[findmoderes]"
  901.             foreach file $filesindir {
  902.                 set fullMffilename $file
  903.                 set tailMffilename [file tail $file]
  904.                 buildOZmakeLine
  905.                 puts $fileId $cmdline
  906.             }
  907.             close $fileId
  908.             runmakeallfile
  909.         }
  910.         "cancel" {
  911.             switchTo 'ALFA'
  912.             return 
  913.         }
  914.     }
  915. }
  916.  
  917. proc checkdirty {} {
  918.         if {[winDirty]} {
  919.         case [askyesno -c "Dirty window '[lindex [winNames] 0]'. Do you want to save it ?"] in {
  920.             "yes" {save}
  921.             "no" {}
  922.             "cancel" {return}
  923.             }
  924.         }
  925. }
  926.  
  927. ####################  Scripts and auxiliary programms  #########################
  928.  
  929. proc buildCMTcmdLine {} {
  930.     global cmdline fullMffilename tailMffilename MfmodeVars chosenMode mfModeForPrinter outputFolder
  931.     global proof smoke localfont userDefined script
  932.     global gfcorners imagerules nodisplays
  933.     global notransforms screenchars screenstrokes
  934.     global mag magstep magflag magstepflag Mfbasefile Mfbasefileflag
  935.     global prefixtfm prefixfpl prefixgf prefixlog
  936.     set cmdline "mf "
  937. #    choosing the mode
  938.     if {$chosenMode != "proof"} {
  939.         if {$chosenMode == "smoke" || $chosenMode == "localfont"} {
  940.             append cmdline "\\mode=$chosenMode; "
  941.             } else {
  942.             append cmdline "\\mode=$MfmodeVars(mfModeForPrinter);"}
  943.         } else {append cmdline "\\ "}
  944. #   Do we magnify ?
  945.        if {$magflag == 1} {append cmdline "mag=$mag; "
  946.         } elseif {$magstepflag == 1} {
  947.             append cmdline "mag=magstep\($magstep\); "
  948.             }
  949. #    Add the (optional!) options if the corresponding flag is set
  950.     if $screenchars {append cmdline "screenchars; "}
  951.     if $screenstrokes {
  952.             if {$chosenMode != "proof"} {
  953.             alertnote "The \"screenstrokes\" option is for proof mode only. I'll ignore it."
  954.             mfToggle screenstrokes
  955.             shadowMf screenstrokes
  956.         } else {
  957.         append cmdline "screenstrokes; "}
  958.     }
  959.     if $imagerules {
  960.         append cmdline "imagerules; "}
  961.     if $gfcorners {
  962.         append cmdline "gfcorners; "}
  963.     if $nodisplays {
  964.         if {$chosenMode != "proof"} {
  965.             alertnote "The \"nodisplays\" option is for proof mode only. I'll ignore it."
  966.         } elseif {$screenchars || $screenstrokes} {beep 
  967.             alertnote "Contradictory options : you can't use \"nodisplays\" with \"screenchars\" or \"screenstrokes\". I'll ignore it."
  968.             mfToggle nodisplays
  969.             shadowMf nodisplays
  970.         } else {
  971.         append cmdline "nodisplays; "}
  972.     }
  973.     if $notransforms {
  974.         append cmdline "notransforms; "}
  975. #    Input a base file if any
  976.     if {$Mfbasefileflag == 1} {
  977.         append cmdline "input $Mfbasefile;"
  978.         }
  979. #   Now the file to process. Since version 2.2.1 of CMaCTeX Metafont there is a new syntax 
  980. #     for the Apple event : the destination folder is included in the script line
  981. #     and introduced by -@
  982.     if {[lindex [getMfVersion] 1] <= 2.2} {
  983.             append cmdline "input $tailMffilename;"
  984.         } else {
  985.             append cmdline "input $tailMffilename -@ [set MfmodeVars(outputFolder)]:"
  986.         }
  987.     set cmdline [curlyq $cmdline]
  988. #     Finally we update prefixes to rebuild accordingly the Other Files submenu
  989.     updateprefixes
  990. }
  991.  
  992. proc buildOZmakeLine {} {
  993.     global cmdline fullMffilename tailMffilename MfmodeVars chosenMode
  994.     global proof smoke localfont userDefined script resol mfModeForPrinter
  995.     global gfcorners imagerules nodisplays
  996.     global notransforms screenchars screenstrokes
  997.     global mag magstep magflag magstepflag Mfbasefile Mfbasefileflag
  998.     global prefixtfm prefixfpl prefixgf prefixlog
  999. # OzMetafont cannot receive a complete command line through an Apple Event. 
  1000. # The workaround is to create a ".make" file which OzMetafont will process 
  1001. # with its built-in MakeTeXPK.
  1002. #         Side effect : the "pk" files will be done in the same time,
  1003. #         thus no need to invoke gftopk after that.
  1004.     set cmdline "MakeTeXPK [file rootname $tailMffilename] "
  1005. # What is the resolution corresponding to the printer mode ? We look for it in the
  1006. # modes.mf file.
  1007.     append cmdline "[lindex $resol 1] [lindex $resol 1] "
  1008. #   Do we magnify ?
  1009.     if {$magflag == 1} {append cmdline "$mag "
  1010.     } elseif {$magstepflag == 1} {
  1011.     append cmdline "magstep\($magstep\) "
  1012.     } else {
  1013.     append cmdline "1 "}
  1014. #   Choose the mode
  1015.     if {$chosenMode == "localfont"} {
  1016.         append cmdline     "[lindex $resol 0]"    
  1017.     } elseif {$chosenMode == "proof" || $chosenMode == "smoke"} {
  1018.         append cmdline "$chosenMode"
  1019.     } else {
  1020.         append cmdline $MfmodeVars(mfModeForPrinter)
  1021.     }
  1022. #    Add the (optional!) options if the corresponding flag is set
  1023.     if $screenchars {append cmdline ";screenchars"}
  1024.     if $screenstrokes {
  1025.         if {$chosenMode != "proof"} {
  1026.             alertnote "The \"screenstrokes\" option is for proof mode only. I'll ignore it."
  1027.             mfToggle screenstrokes
  1028.             shadowMf screenstrokes
  1029.         } else {
  1030.             append cmdline ";screenstrokes"}
  1031.         }
  1032.         if $imagerules {
  1033.             append cmdline ";imagerules"}
  1034.         if $gfcorners {
  1035.             append cmdline ";gfcorners"}
  1036.         if $nodisplays {
  1037.             if {$chosenMode != "proof"} {
  1038.                 alertnote "The \"nodisplays\" option is for proof mode only. I'll ignore it."
  1039.             } elseif {$screenchars || $screenstrokes} {beep 
  1040.                 alertnote "Contradictory options : you can't use \"nodisplays\" with \"screenchars\" or \"screenstrokes\". I'll ignore it."
  1041.                 mfToggle nodisplays
  1042.                 shadowMf nodisplays
  1043.             } else {
  1044.                 append cmdline ";nodisplays"}
  1045.             }
  1046.         if $notransforms {
  1047.             append cmdline ";notransforms"}
  1048. #    Input a base file if any
  1049.         if {$Mfbasefileflag == 1} {
  1050.             append cmdline ";input $Mfbasefile"
  1051.         }
  1052. #     Finally we update prefixes to rebuild the "Other Files" submenu
  1053.     updateprefixes
  1054. }
  1055.                 
  1056. proc doMfscript {} {
  1057.     global cmdline addcmdline fullMffilename script rootname
  1058.     global MfmodeVars mfAppSig
  1059.     switch $MfmodeVars(mfAppSig) {
  1060.         "CMT3" {     
  1061.              eval "AEBuild -t 6000 'CMT3'" CMTX exec {----} [list $cmdline] 
  1062.             }
  1063.         "OzMF" {
  1064.             app::launchFore "OzMF"
  1065.             dosc -c 'OzMF' -k 'aevt' -e 'odoc' -t 600 -r -f $fullMffilename
  1066.             }
  1067.         "TeX+"  {
  1068.             alertnote "Support for Direct Tex Pro still to be done. Sorry !"
  1069.         }
  1070.     }
  1071. }
  1072.  
  1073. proc createmakefile {} {
  1074.     global cmdline fullMffilename
  1075.     set fileId [open "[file dirname $fullMffilename]:tmp.make" w+] 
  1076.     puts $fileId $cmdline
  1077.     close $fileId
  1078. }
  1079.     
  1080. proc runmakefile {} {
  1081.     global fullMffilename
  1082.     app::launchFore "OzMF"
  1083.     dosc -c 'OzMF' -k 'aevt' -e 'odoc' -t 600 -r -f "[file dirname $fullMffilename]:tmp.make"
  1084. }
  1085.         
  1086. proc runmakeallfile {} {
  1087.     global folderpath MfmodeVars mfAppSig
  1088.     switch $MfmodeVars(mfAppSig) {
  1089.         "CMT3" {
  1090.             app::launchFore "CMT9"
  1091.             dosc -c 'CMT9' -k 'aevt' -e 'odoc' -t 600 -r -f "$folderpath:tmpall.make"
  1092.         }
  1093.         "OzMF" {
  1094.             app::launchFore "OzMF"
  1095.             dosc -c 'OzMF' -k 'aevt' -e 'odoc' -t 600 -r -f "$folderpath:tmpall.make"                            
  1096.         }
  1097.     }
  1098. }
  1099.     
  1100. proc updateprefixes {} {
  1101.     global prefixtfm prefixfpl prefixgf prefixlog chosenMode
  1102.     if {$chosenMode == "proof"  || $chosenMode == "smoke"} {
  1103.         set prefixtfm "("
  1104.             } else {
  1105.         set prefixtfm ""}
  1106.     set prefixfpl "("
  1107.     set prefixgf ""
  1108.     set prefixlog ""
  1109. }
  1110.  
  1111.  
  1112. # This proc calls gftopk up
  1113. proc dopkProc {} {
  1114.     global gffile MfmodeVars outputFolder mfAppSig mfset 
  1115.     global mfwd folderpath
  1116.     switch $MfmodeVars(mfAppSig) {
  1117.         "CMT3" {
  1118.             if {![file exists $mfwd:$gffile]} {
  1119.                 alertnote "Can't find file $gffile."
  1120.                 return}
  1121.             set pkcmdline "gftopk $mfwd:$gffile"
  1122.             app::launchFore "CMTe"
  1123.             set pkcmdline [curlyq $pkcmdline]
  1124.             eval "AEBuild 'CMTe'" CMTX exec {----} [list $pkcmdline]
  1125.             }
  1126.         "OzMF" {
  1127.             if {![file exists $mfwd:$gffile]} {
  1128.                 alertnote "Can't find file $gffile. Check that the \"delete_gf\" flag in OzMetafont configs is set to false."
  1129.                 return}
  1130.             app::launchFore "OzMF"
  1131.             dosc -c 'OzMF' -k 'aevt' -e 'odoc' -t 6000 -r -f "$mfwd:$gffile"
  1132.             }
  1133.         "TeX+"  {
  1134.             alertnote "Support for Direct Tex Pro still to be done. Sorry !"
  1135.         }
  1136.     }
  1137. }
  1138.  
  1139. # This proc calls vftopl up
  1140. proc doplProc {} {
  1141.     global rootname MfmodeVars outputFolder mfAppSig tfmfile mfset 
  1142.     global mfwd folderpath
  1143.     switch $MfmodeVars(mfAppSig) {
  1144.         "CMT3" {     
  1145.             if $mfset {
  1146.             set mfwd $folderpath
  1147.             } else {set mfwd $MfmodeVars(outputFolder)}
  1148.             if {$tfmfile != ""} {
  1149.                 set plcmdline "tftopl $tfmfile $mfwd:${rootname}.fpl"
  1150.             } else {
  1151.                 if {![file exists $mfwd:${rootname}.tfm]} {
  1152.                     alertnote "Can't find file ${rootname}.tfm. Check your mode (no tfm in proof or smoke modes)."
  1153.                     return}
  1154.                 set plcmdline "tftopl $mfwd:${rootname}.tfm $mfwd:${rootname}.fpl"
  1155.             }
  1156.             app::launchFore "CMTk"
  1157.             set plcmdline [curlyq $plcmdline]
  1158.             eval "AEBuild -r 'CMTk'" CMTX exec {----} [list $plcmdline]
  1159. #             app::launchFore "ALFA"
  1160.         }
  1161.         "OzMF" {
  1162.             if $mfset {
  1163.             set mfwd $folderpath
  1164.             } else {set mfwd [file dirname [win::Current]]}
  1165.             if {![file exists $mfwd:${rootname}.tfm]} {
  1166.                 alertnote "Can't find file ${rootname}.tfm. Check that the \"delete_tfm\" flag in OzMetafont configs is set to false."
  1167.                 return}
  1168.             app::launchBack "OzMF"
  1169.             if {$tfmfile != ""} {
  1170.             dosc -c 'OzMF' -k 'aevt' -e 'odoc' -t 600 -r -f $tfmfile                
  1171.                 } else {
  1172.             dosc -c 'OzMF' -k 'aevt' -e 'odoc' -t 600 -r -f "$mfwd:${rootname}.tfm"
  1173.             app::launchFore "ALFA"
  1174.             }
  1175.         }
  1176.         "TeX+"  {
  1177.             alertnote "Support for Direct Tex Pro still to be done. Sorry !"
  1178.         }
  1179.     }
  1180. }
  1181.  
  1182. proc editplProc {} {
  1183.         global rootname MfmodeVars outputFolder mfAppSig 
  1184.         global mfwd tfmfile
  1185.     switch $MfmodeVars(mfAppSig) {
  1186.         "CMT3" {     
  1187.             while {![file exists "$mfwd:${rootname}.fpl"]} {}
  1188.             edit -r "$mfwd:${rootname}.fpl"
  1189.             if [app::isRunning CMTk] {sendQuitEvent 'CMTk'}
  1190.         }
  1191.         "OzMF" {
  1192.             if {$tfmfile != ""} {
  1193.                 if {[file exists "[file dirname $tfmfile]:[file rootname [file tail $tfmfile]].pl"]} {
  1194.                     edit -r "[file dirname $tfmfile]:[file rootname [file tail $tfmfile]].pl"
  1195.                 } else {alertnote "Can't find [file rootname [file tail $tfmfile]].pl"}
  1196.             } else {
  1197.                 if {[file exists "$mfwd:${rootname}.pl"]} {
  1198.                     edit -r "$mfwd:${rootname}.pl"
  1199.                 } else {alertnote "Can't find ${rootname}.pl in $mfwd."}
  1200.             }
  1201.         }
  1202.         "TeX+"  {
  1203.             alertnote "Support for Direct Tex Pro still to be done. Sorry !"
  1204.         }
  1205.     }
  1206.             set prefixfpl ""
  1207.             menu::buildSome otherFiles
  1208. }
  1209.  
  1210.  
  1211. #########   Choosing Metafont printer mode for processing   ##################
  1212.  
  1213. proc choosemodeProc {menu item} {
  1214.         global MfmodeVars mfModeForPrinter chosenMode
  1215.         global proof smoke localfont userDefined
  1216.     switch $item {
  1217.         "proof" {set chosenMode proof
  1218.             choosemodeMark proof
  1219.             dimmOtherfiles
  1220.             message "mode proof - no tfm produced"
  1221.             }
  1222.         "smoke" {set chosenMode smoke
  1223.             choosemodeMark smoke
  1224.             dimmOtherfiles
  1225.             message "mode smoke - no tfm produced"
  1226.             }
  1227.         "localfont" {set chosenMode localfont
  1228.             choosemodeMark localfont
  1229.             undimmOtherfiles
  1230.             }
  1231.         "userDefined" {set chosenMode $MfmodeVars(mfModeForPrinter)
  1232.             choosemodeMark userDefined
  1233.             undimmOtherfiles
  1234.             alertnote "Current user defined mode is $MfmodeVars(mfModeForPrinter). You can change this in the Current Mode Prefs."
  1235.         }
  1236.     }
  1237. }
  1238.  
  1239. proc choosemodeMark {var} {
  1240.             clearAllModes
  1241.             markMenuItem metafontMode $var 1
  1242. }
  1243.  
  1244. proc clearAllModes {} {
  1245.     global proof smoke localfont userDefined
  1246.         foreach i {"proof" "smoke" "localfont" "userDefined"} {
  1247.             markMenuItem metafontMode $i 0
  1248.             } 
  1249. }
  1250.  
  1251.  
  1252.  
  1253. #####################   Metafont processing Options   ######################################
  1254.  
  1255. proc processingoptProc {menu item} {
  1256.     global mag magstep magflag magstepflag Mfbasefileflag
  1257.     global MfmodeVars Mfbasefile
  1258.     switch $item {    
  1259.     "mag..." {
  1260.             catch {prompt "Choose a magnification" $mag} res
  1261.             if {$res == "cancel"} {return}
  1262.             if {$res == 1} {
  1263.                     set magflag 0
  1264.                     set mag $res
  1265.                     markMenuItem processingOptions "mag..." $magflag
  1266.                 } else {
  1267.                     set magstep 0
  1268.                     set magstepflag 0
  1269.                     set magflag 1
  1270.                     set mag $res
  1271.                     markMenuItem processingOptions "mag..." $magflag
  1272.                     markMenuItem processingOptions "magstep..." $magstepflag
  1273.                     }
  1274.         }
  1275.     "magstep..." {
  1276.             catch {prompt "Choose a magstep coefficient " $magstep} res
  1277.             if {$res == "cancel"} {return}
  1278.             if {$res == 0} {
  1279.                     set magstepflag 0
  1280.                     set magstep $res
  1281.                     markMenuItem processingOptions "magstep..." $magstepflag
  1282.                 } else {
  1283.                     set mag 1
  1284.                     set magflag 0
  1285.                     set magstepflag 1
  1286.                     set magstep $res
  1287.                     markMenuItem processingOptions "mag..." $magflag
  1288.                     markMenuItem processingOptions "magstep..." $magstepflag
  1289.                     }
  1290.         }
  1291.     "baseFile..." {
  1292.         catch {getfile "Select a base file"} Mfbasefilepath
  1293.         set Mfbasefile [file tail $Mfbasefilepath] 
  1294.         set Mfbasefileflag 1
  1295.         markMenuItem processingOptions "baseFile..." $Mfbasefileflag
  1296.     }
  1297.     "gfcorners" {mfToggle gfcorners}
  1298.     "imagerules" {mfToggle imagerules}
  1299.     "nodisplays" {mfToggle nodisplays}
  1300.     "notransforms" {mfToggle notransforms}
  1301.     "screenchars" {mfToggle screenchars}
  1302.     "screenstrokes" {mfToggle screenstrokes}
  1303.     "clearAllOptions" {clearAllOptionsProc}
  1304.     }    
  1305. }
  1306.  
  1307.  
  1308. proc mfToggle {var} {
  1309.     global $var
  1310.     set $var [expr [set $var] ? 0 : 1]
  1311.     synchroniseModeVar $var
  1312.     shadowMf $var
  1313. }
  1314.  
  1315.  
  1316. proc shadowMf {name} {
  1317.     global gfcorners imagerules nodisplays
  1318.     global notransforms screenchars screenstrokes
  1319.     switch $name {
  1320.         "gfcorners"    {
  1321.             markMenuItem processingOptions gfcorners $gfcorners
  1322.          }
  1323.         "imagerules"    {
  1324.             markMenuItem processingOptions imagerules $imagerules
  1325.          }
  1326.         "nodisplays"    {
  1327.             markMenuItem processingOptions nodisplays $nodisplays
  1328.          }
  1329.         "notransforms"    {
  1330.             markMenuItem processingOptions notransforms $notransforms
  1331.          }
  1332.         "screenchars"    {
  1333.             markMenuItem processingOptions screenchars $screenchars
  1334.          }
  1335.         "screenstrokes"    {
  1336.             markMenuItem processingOptions screenstrokes $screenstrokes
  1337.          }
  1338.     }
  1339. }
  1340.  
  1341. proc clearAllOptionsProc {} {
  1342.     global gfcorners imagerules nodisplays
  1343.     global notransforms screenchars screenstrokes
  1344.     global mag magflag magstep magstepflag Mfbasefile Mfbasefileflag
  1345.         foreach i {"gfcorners" "imagerules" "nodisplays" "notransforms" "screenchars" "screenstrokes"} {
  1346.             set $i 0
  1347.             shadowMf $i
  1348.             }
  1349.         set mag 1
  1350.         set magflag 0
  1351.         set magstep 0
  1352.         set magstepflag 0
  1353.         set Mfbasefileflag 0
  1354.         set Mfbasefile ""
  1355.         markMenuItem processingOptions "baseFile..." $Mfbasefileflag
  1356.         markMenuItem processingOptions "mag..." $magflag
  1357.         markMenuItem processingOptions "magstep..." $magstepflag
  1358. }
  1359.  
  1360. proc dimmOtherfiles {} {
  1361.         enableMenuItem otherFiles "convertTfmToPl" 0
  1362.         enableMenuItem otherFiles "openPropertyList" 0
  1363. }
  1364.  
  1365. proc undimmOtherfiles {} {
  1366.         enableMenuItem otherFiles "convertTfmToPl" 1
  1367.         enableMenuItem otherFiles "openPropertyList" 1
  1368. }
  1369.  
  1370.  
  1371. ######################   Related files procs  #####################################
  1372.  
  1373. proc getMfVersion {} {
  1374.     set sig "CMT3"
  1375.     set vers [objectProperty 'MACS' vers "obj {want:type(file), seld:$sig, form:fcrt, from:'null'()}"]
  1376.     if {[regexp {\“.* (.*)©.*\”\}$} $vers longvers numvers]} {
  1377.     return [list [string trim $longvers "\r\}"] [string trim $numvers "\r\}"]]
  1378.     } else {alertnote "Can't get version info"}
  1379. }
  1380.  
  1381. proc getFSSpec {directory} {
  1382.     global res 
  1383.     set res [AEBuild -r 'MACS' core getd {----} "obj{want:type('cobj'), from:'null'(), form:'name', seld:[curlyq $directory]}"  rtyp fss]
  1384.     if { [regexp {\«(.*)\»} $res blabla fssreco] } {
  1385.     return $fssreco
  1386.     } else {alertnote "Couldn't find FSSpec Record"}
  1387. }
  1388.  
  1389. # This proc looks in the current log file for a line indicating the name of
  1390. # the output file produced by Metafont so that we do not have to calculate
  1391. # the extension (which depends on the printer mode and the magnification)
  1392. proc findgfFile {} {
  1393.     global rootname MfmodeVars outputFolder mfAppSig gffile 
  1394.     global folderpath mfwd mfset
  1395.     switch $MfmodeVars(mfAppSig) {
  1396.         "CMT3" {     
  1397.             if $mfset {
  1398.                 set mfwd $folderpath
  1399.             } else {set mfwd $MfmodeVars(outputFolder)}
  1400.             if {![file exists $mfwd:${rootname}.log]} {
  1401.                 beep 
  1402.                 alertnote "Can't find file ${rootname}.log ; did you process ${rootname}.mf ?"
  1403.                 return}
  1404.                 catch {open "$mfwd:${rootname}.log"} fileId
  1405.             }
  1406.             "OzMF" {
  1407.                 if $mfset {
  1408.                     set mfwd $folderpath
  1409.                 } else {set mfwd [file dirname [win::Current]]}
  1410.                 if {![file exists $mfwd:${rootname}.log]} {
  1411.                     beep 
  1412.                     alertnote "Can't find file ${rootname}.log ; did you process ${rootname}.mf ? Check that the \"delete_log\" flag in OzMetafont configs is set to false."
  1413.                     return}
  1414.                     catch {open "$mfwd:${rootname}.log"} fileId
  1415.                 }
  1416.                 "TeX+"  {
  1417.                     alertnote "Support for Direct Tex Pro still to be done. Sorry !"
  1418.                 }
  1419.             }
  1420.             catch {read $fileId} textlog
  1421.             set textlog [split $textlog]
  1422.             catch {lsearch   -regexp  $textlog .*gf} indx
  1423.             if {[expr $indx > 0]} {
  1424.                 set gffile [lindex $textlog $indx]
  1425.             } else {
  1426.                 alertnote "According to ${rootname}.log, no gf output written."
  1427.             }
  1428.         }
  1429.         
  1430. proc findoutputfolder {} {
  1431.     global MfmodeVars outputFolder
  1432.     if {$MfmodeVars(outputFolder) == "" } {
  1433.         catch {get_directory -p "Select the output folder"} rootpath
  1434.         set MfmodeVars(outputFolder) [set rootpath]
  1435.          addArrDef MfmodeVars outputFolder $rootpath
  1436.     }
  1437. }
  1438.  
  1439. proc findrootnameProc {} {
  1440.     global rootname 
  1441.       set rootname [file rootname [file tail [win::Current]]]
  1442.     return
  1443. }
  1444.  
  1445. proc openmodesmfProc {} {
  1446.             global  MfmodeVars pathToModesMfFile
  1447.             if {[file exists $MfmodeVars(pathToModesMfFile) ]} {
  1448.             message "opening $MfmodeVars(pathToModesMfFile)"
  1449.             edit -r $MfmodeVars(pathToModesMfFile) 
  1450.             } else {
  1451.             alertnote "Can't find file modes.mf : where is it ?"
  1452.             catch    {getfile "Find file modes.mf"}  chemin
  1453.             removeArrDef MfmodeVars pathToModesMfFile
  1454.             set pathToModesMfFile $chemin
  1455.             set MfmodeVars(pathToModesMfFile) [set chemin]
  1456.              addArrDef MfmodeVars pathToModesMfFile $chemin
  1457.               edit -r $MfmodeVars(pathToModesMfFile)
  1458.             }
  1459. }
  1460.  
  1461. proc openplainmfProc  {} {
  1462.             global  MfmodeVars pathToPlainMfFile
  1463.             if {[file exists $MfmodeVars(pathToPlainMfFile) ]} {
  1464.             message "opening $MfmodeVars(pathToPlainMfFile)"
  1465.             edit -r $MfmodeVars(pathToPlainMfFile) 
  1466.             } else {
  1467.             alertnote "Can't find file plain.mf : where is it ?"
  1468.             catch    {getfile "Find file plain.mf"}  chemin
  1469.             removeArrDef MfmodeVars pathToPlainMfFile
  1470.             set pathToPlainMfFile $chemin
  1471.             set MfmodeVars(pathToPlainMfFile) [set chemin]
  1472.              addArrDef MfmodeVars pathToPlainMfFile $chemin
  1473.               edit -r $MfmodeVars(pathToPlainMfFile)
  1474.             }
  1475. }
  1476.  
  1477. proc deleteallfilesProc {ext} { 
  1478.     global MfmodeVars outputFolder
  1479.     switch $MfmodeVars(mfAppSig) {
  1480.         "CMT3" {     
  1481.             set currentdir $MfmodeVars(outputFolder)
  1482.         }
  1483.         "OzMF" {
  1484.             set currentdir [file dirname [win::Current]]    
  1485.         }
  1486.         "TeX+"  {
  1487.             alertnote "Support for Direct Tex Pro still to be done. Sorry !"
  1488.             return
  1489.         }
  1490.     }
  1491.     if {![regexp "gf" $ext] && ![regexp "pk" $ext]} {
  1492.         set ext ".$ext"
  1493.     }
  1494.     set filesindir [glob -nocomplain "$currentdir:*$ext"]
  1495.     switch [buttonAlert "OK to remove all \"$ext\" files from $currentdir ?" "yes" "cancel" ] {
  1496.         "yes" {
  1497.             set longueur [llength $filesindir]
  1498.             if {$longueur == 0} {
  1499.                 alertnote "No \"$ext\" file in output folder."
  1500.                 return }
  1501.             foreach Mffile $filesindir {
  1502.                 removeFile $Mffile
  1503.                 message "$longueur file(s) removed"
  1504.             }
  1505.         }
  1506.         "cancel" {return}
  1507.     }
  1508. }
  1509.     
  1510. proc allAuxfilesProc {ext} {
  1511.     global Mffilename cmdline fromfolder MfmodeVars outputFolder folderpath
  1512.     findoutputfolder
  1513.     set mtf ".mf"
  1514.     set i 0
  1515.     set filesindir [glob -nocomplain "$folderpath:*$mtf"]
  1516.     set longueur [llength $filesindir]
  1517.     if {$longueur == 0} { 
  1518.         alertnote "Folder $folderpath is empty"
  1519.         return } 
  1520.     foreach Mffile $filesindir {
  1521.         if {[file exists "[string trimright $Mffile {.mf}].$ext"]} {
  1522.         edit -r "[string trimright $Mffile {.mf}].$ext"
  1523.         } else {set i [expr $i + 1]}
  1524.     }
  1525.     if {$i == $longueur} {
  1526.         alertnote "No \".$ext\" file(s)"
  1527.         } elseif {[expr $i > 0]} {alertnote "$i \".$ext\" file(s) missing."}
  1528. }
  1529.  
  1530. proc convertallProc {applic} {
  1531.     global cmdline fromfolder MfmodeVars outputFolder folderpath
  1532.     global rootname gffile mfset mfwd
  1533.     set i 0
  1534.     set mfset 1
  1535.     set ext(gftopk) "log"
  1536.     set ext(vftopl) "tfm"
  1537.     set filesindir [glob -nocomplain "$folderpath:*.mf"]
  1538.     set longueur [llength $filesindir]
  1539.     if {$longueur == 0} {set mfset 0
  1540.         return } 
  1541.     switch [buttonAlert "Process all the files in $folderpath with $applic ? " "yes" "cancel" ] {
  1542.         "yes" {
  1543.             foreach Mffile $filesindir {
  1544.             set rootname [file rootname [file tail $Mffile]]
  1545.             if {[file exists "$folderpath:$rootname.$ext($applic)"]} {
  1546.                 switch $applic {
  1547.                     "gftopk" {                
  1548.                         findgfFile
  1549.                         if {![file exists "$folderpath:$gffile"]} {
  1550.                             set i [expr $i + 1]
  1551.                             }
  1552.                         dopkProc
  1553.                         }
  1554.                     "vftopl" {                
  1555.                         doplProc
  1556.                         while {![file exists "$mfwd:${rootname}.fpl"]} {}
  1557.                         sendQuitEvent 'CMTk'
  1558.                         set longueur [expr $longueur - 1]
  1559.                         app::launchFore "ALFA"
  1560.                         if [expr $longueur > 0] {
  1561.                             alertnote "Click to proceed : $longueur files left."
  1562.                             }
  1563.                         }
  1564.                     }                
  1565.                 } else {
  1566.                         alertnote "Can't find file $folderpath:$rootname.$ext($applic). Check the Metafont mode."
  1567.                         set i [expr $i + 1]
  1568.                         }
  1569.             }
  1570.         }
  1571.         "cancel" {set i $longueur}
  1572.     }
  1573.         set mfset 0
  1574.         if {$i == [llength $filesindir]} {
  1575.         alertnote "No \"pk\" file(s) computed."
  1576.         } elseif {[expr $i > 0]} {alertnote "$i \"pk\" file(s) missing. Check your \"log\" and your \"gf\" files."}
  1577. }
  1578.  
  1579. proc removefilesProc {menu item} {
  1580.     global MfmodeVars mfAppSig
  1581.     switch $item {    
  1582.         "allLogFiles"  {deleteallfilesProc log}
  1583.         "allGfFiles"  {deleteallfilesProc gf}
  1584.         "allPkFiles"  {deleteallfilesProc pk}
  1585.         "allTfmFiles" {deleteallfilesProc tfm}
  1586.         "allPlFiles" {
  1587.             switch $MfmodeVars(mfAppSig) {
  1588.                 "CMT3" {deleteallfilesProc fpl}
  1589.                 "OzMF" {deleteallfilesProc pl}
  1590.                 "TeX+" {alertnote "Support for Direct Tex Pro still to be done. Sorry !"}
  1591.             }
  1592.         }
  1593.         "allOfThem" {
  1594.             foreach ext {"log" "gf" "pk" "tfm" "fpl" "pl"} {
  1595.                 deleteallfilesProc $ext
  1596.             }
  1597.         }
  1598.     }
  1599. }
  1600.     
  1601. ######################   Insert commands submenus   #####################################
  1602.  
  1603. proc newtemplateProc {} {
  1604.     new -n "newfont.mf"
  1605. #     Ask how many chars in the font
  1606.     beep
  1607.     catch {prompt "How many chars in the new font ?" 128} nbchr
  1608.     if {$nbchr == "cancel"} {
  1609.         return
  1610.     } elseif {![isPositiveInteger $nbchr]} {
  1611.         beep
  1612.         message "invalid input: please enter a positive integer"
  1613.         return
  1614.     }
  1615. #     Preambule instruction
  1616.     set t "\% This file : \n"
  1617.     append t "\% Created : [creationdate]\n"    
  1618.     append t "\% Author : •\n"    
  1619.     append t "\% e-mail : •\n"    
  1620.     append t "\% Comments :•\n%\n%\n%\n\n"    
  1621.     append t "font_size  •pt\#;    \% the \"design size\" of this font\n\n"
  1622.     append t "mode_setup;"
  1623.     append t "\n\n\%\%\%\% Parameters \%\%\%\%\n\n"
  1624.     append t "\n\n\%\%\%\% Pixellisation \%\%\%\%\n\n"
  1625.     append t "define_pixels(•);\n"
  1626.     append t "define_whole_pixels(•);\n"
  1627.     append t "define_whole_vertical_pixels(•);\n"
  1628.     append t "define_blacker_pixels(•);\n"
  1629.     append t "define_good_x_pixels(•);\n"
  1630.     append t "define_good_y_pixels(•);\n"
  1631.     append t "define_corrected_pixels(•);\n"
  1632.     append t "define_horizontal_corrected_pixels(•);\n"
  1633.     append t "\n\n\%\%\%\% Macros and definitions \%\%\%\%\n\n"
  1634.     append t "\n\n\%\%\%\% Drawing instruction for the characters \%\%\%\%\n\n"
  1635.     insertText $t
  1636.     set i 0
  1637.     for {set i 0} {$i < $nbchr} {incr i} {
  1638.             insertText "beginchar([set i],•,•,•);\"•\";\n\n\n\nendchar;\n\n"
  1639.         }
  1640. #     Postambule instruction
  1641.     set t "\n\n\%\%\%\% Ligtables and kerning \%\%\%\%\n\n"
  1642.     append t "ligtable \"•\": \"•\" kern • \#;\n"
  1643.     append t "\n\n\%\%\%\% General Font Parameters \%\%\%\%\n\n"    
  1644.     append t "font_slant:=• ;\n"
  1645.     append t "font_normal_space:=• ;\n"
  1646.     append t "font_normal_stretch:=• ;\n"
  1647.     append t "font_normal_shrink:=•;\n"
  1648.     append t "font_quad:=• ;\n"
  1649.     append t "font_x_height:=• ;\n"
  1650.     append t "font_extra_space:=• ;\n"
  1651.     append t "\nfont_coding_scheme:= \"•\";\n"
  1652.     append t "font_identifier:= \"•\";\n"
  1653.     append t "\n\nbye"
  1654.     insertText $t
  1655. }
  1656.  
  1657. proc creationdate {} {
  1658.     set date [lindex [mtime [now] long] 0]
  1659.     append date " - [lindex [mtime [now] long] 1]"
  1660.     return $date    
  1661. }
  1662.  
  1663. proc variablesProc {menu item} {
  1664.     switch $item {    
  1665.     " boolean" {insertObject "boolean ••;\n••"}
  1666.     " numeric" {insertObject "numeric ••;\n••"}
  1667.     " pair" {insertObject "pair ••;\n••"}
  1668.     " path" {insertObject "path ••;\n••"}
  1669.     " pen" {insertObject "pen ••;\n••"}
  1670.     " picture" {insertObject "picture ••;\n••"}
  1671.     " string" {insertObject "string ••;\n••"}
  1672.     " transform" {insertObject "transform ••;\n••"}
  1673.     }
  1674. }
  1675. proc booleanProc {menu item} {
  1676.     switch $item {    
  1677.     " charexists" {insertObject "charexists ••;\n••"}
  1678.     " cycle" {insertObject "cycle ••;\n••"}
  1679.     " false" {insertObject "false ••;\n••"}
  1680.     " known" {insertObject "known ••;\n••"}
  1681.     " true" {insertObject "true ••;\n••"}
  1682.     " unknown" {insertObject "unknown ••;\n••"}
  1683.     }
  1684. }
  1685. proc functionsProc {menu item} {
  1686.     switch $item {    
  1687.     " angle" {insertObject "angle ••;\n••"}
  1688.     " ceilling" {insertObject "ceilling ••;\n••"}
  1689.     " floor" {insertObject "floor(••)••"}
  1690.     " cosd" {insertObject "cosd(••)••"}
  1691.     " sind" {insertObject "sind(••)"}
  1692.     " mexp" {insertObject "mexp(••)••"}
  1693.     " mlog" {insertObject "mlog(••)••"}
  1694.     " sqrt" {insertObject "sqrt(••)••"}
  1695.     " eps" {insertObject "eps "}
  1696.     " epsilon" {insertObject "epsilon "}
  1697.     " infinity" {insertObject "infinity "}
  1698.     " round" {insertObject "round(••)••"}
  1699.     " hround" {insertObject "hround(••)••"}
  1700.     " vround" {insertObject "vround(••)••"}
  1701.     " solve" {insertObject "solve ••;\n••"}
  1702.     " tolerance" {insertObject "tolerance= ••;\n••"}
  1703.     " normaldeviate" {insertObject "normaldeviate(••)••"}
  1704.     " randomseed" {insertObject "randomseed:= ••;\n••"}
  1705.     " uniformdeviate" {insertObject "uniformdeviate(••)••"}
  1706.     " whatever" {insertObject "whatever "}
  1707.     }
  1708. }
  1709.  
  1710. proc positioningProc {menu item} {
  1711.     switch $item {    
  1712.     " clearxy" {insertObject "clearxy ••;\n••"}
  1713.     " direction" {insertObject "direction •• of ••"}
  1714.     " directionpoint" {insertObject "directionpoint •• of ••"}
  1715.     " directiontime" {insertObject "directiontime •• of ••;\n••"}
  1716.     " penoffset" {insertObject "penoffset •• of ••"}
  1717.     " point…of" {insertObject "point •• of ••"}
  1718.     " precontrol…of" {insertObject "precontrol •• of ••"}
  1719.     " postcontrol…of" {insertObject "postcontrol •• of ••"}
  1720.     " intersectionpoint" {insertObject " •• intersectionpoint ••"}
  1721.     " intersectiontimes" {insertObject "•• intersectiontimes ••"}
  1722.     " good.bot" {insertObject "good.bot "}
  1723.     " good.lft" {insertObject "good.lft "}
  1724.     " good.rt" {insertObject "good.rt "}
  1725.     " good.top" {insertObject "good.top "}
  1726.     " good.x" {insertObject "good.x "}
  1727.     " good.y" {insertObject "good.y "}
  1728.     " xpart" {insertObject "xpart(••)••"}
  1729.     " xxpart" {insertObject "xxpart(••)••"}
  1730.     " xypart" {insertObject "xypart(••)••"}
  1731.     " ypart" {insertObject "ypart(••)••"}
  1732.     " yxpart" {insertObject "yxpar(••)••"}
  1733.     " yypart" {insertObject "yypart(••)••"}
  1734.     }
  1735. }
  1736. proc pathsProc {menu item} {
  1737.     switch $item {    
  1738.     " flex" {mkflexProc}
  1739.     " fullcircle" {insertObject "fullcircle "}
  1740.     " halfcircle" {insertObject "halfcircle "}
  1741.     " quartercircle" {insertObject "quartercircle "}
  1742.     " superellipse" {insertObject "superellipse(••,••,••,••,••);\n••"}
  1743.     " unitsquare" {insertObject "unitsquare "}
  1744.     " makepath" {insertObject "makepath ••;\n••"}
  1745.     " interpath" {insertObject "interpath(••,••,••);\n••"}
  1746.     " subpath" {insertObject "subpath(••,••) of ••"}
  1747.     " tensepath" {insertObject "tensepath "}
  1748.     " counterclockwise" {insertObject "counterclockwise "}
  1749.     " reverse" {insertObject "reverse "}
  1750.     " turningnumber" {insertObject "turningnumber "}
  1751.     }
  1752. }
  1753. proc pensProc {menu item} {
  1754.     switch $item {    
  1755.     " clear_pen_memory" {insertObject "clear_pen_memory;"}
  1756.     " clearpen" {insertObject "clearpen;"}
  1757.     " currentpen" {insertObject "currentpen "}
  1758.     " makepen" {insertObject "makepen "}
  1759.     " nullpen" {insertObject "nullpen;"}
  1760.     " savepen" {insertObject ":=savepen;"}
  1761.     " pencircle" {insertObject "pencircle "}
  1762.     " pencircle..." {insertObject "pencircle •• xscaled •• yscaled ••;\n••"}
  1763.     " pensquare" {insertObject "pensquare "}
  1764.     " pensquare..." {insertObject "pensquare •• xscaled •• yscaled ••;\n••"}
  1765.     " penrazor" {insertObject "penrazor;"}
  1766.     " penspeck" {insertObject "penspeck;"}
  1767.     " pen_bot" {insertObject "pen_bot"}
  1768.     " pen_lft" {insertObject "pen_lft"}
  1769.     " pen_rt" {insertObject "pen_rt"}
  1770.     " pen_top" {insertObject "pen_top"}
  1771.     " pickup" {insertObject "pickup "}
  1772.     }
  1773. }
  1774. proc picturesProc {menu item} {
  1775.     switch $item {    
  1776.     " blankpicture" {insertObject "blankpicture"}
  1777.     " clearit" {insertObject "clearit ••;\n••"}
  1778.     " currentpicture" {insertObject "currentpicture"}
  1779.     " nullpicture" {insertObject "nullpicture"}
  1780.     " totalweight" {insertObject "totalweight "}
  1781.     " unitpixel" {insertObject "unitpixel"}
  1782.     }
  1783. }
  1784. proc stringsProc {menu item} {
  1785.     switch $item {    
  1786.     " ditto" {insertObject "ditto"}
  1787.     " jobname" {insertObject "jobname"}
  1788.     " readstring" {insertObject ":=readstring;"}
  1789.     " substring" {insertObject "substring(••,••) of ••"}
  1790.     }
  1791. }
  1792. proc transformationsProc {menu item} {
  1793.     switch $item {    
  1794.     " currenttransform" {insertObject "currenttransform "}
  1795.     " identity" {insertObject "identity "}
  1796.     " inverse" {insertObject "inverse "}
  1797.     " reflectedabout" {insertObject "reflectedabout(••,••) ••"}
  1798.     " rotated" {insertObject "rotated "}
  1799.     " rotatedaround" {insertObject "rotatedaround(••,••) ••"}
  1800.     " scaled" {insertObject "scaled "}
  1801.     " shifted" {insertObject "shifted "}
  1802.     " slanted" {insertObject "slanted "}
  1803.     " transformed" {insertObject "transformed "}
  1804.     " xscaled" {insertObject "xscaled "}
  1805.     " yscaled" {insertObject "yscaled "}
  1806.     " zscaled" {insertObject "zscaled "}
  1807.     }
  1808. }
  1809. proc definitionsProc {menu item} {
  1810.     switch $item {    
  1811.     " def…enddef" {insertObject "def ••=\n••\nenddef;\n••"}
  1812.     " suffix" {insertObject "(suffix ••)••"}
  1813.     " expr" {insertObject "(expr ••)••"}
  1814.     " text" {insertObject "(text ••)••"}
  1815.     " primarydef…enddef" {insertObject "primarydef ••=\n••\nenddef;\n••"}
  1816.     " secondarydef…enddef" {insertObject "secondarydef ••=\n••\nenddef;\n••"}
  1817.     " tertiarydef…enddef" {insertObject "tertiarydef ••=\n••\nenddef;\n••"}
  1818.     " vardef…enddef" {insertObject "vardef ••=\n••\nenddef;\n••"}
  1819.     " begingroup…endgroup" {insertObject "begingroup ••\nendgroup;\n••"}
  1820.     }
  1821. }
  1822. proc conditionsProc {menu item} {
  1823.     switch $item {    
  1824.     " for…endfor" {insertObject "for •• : •• endfor;\n••"}
  1825.     " forever…endfor" {insertObject "forever •• endfor;\n••"}
  1826.     " forsuffixes…endfor" {insertObject "forsuffixes •• : •• endfor;\n••"}
  1827.     " if…fi" {insertObject "if •• : •• fi\n••"}
  1828.     " if…elseif…else…fi" {insertObject "if •• elseif •• else •• fi\n••"}
  1829.     " downto" {insertObject "downto "}
  1830.     " upto" {insertObject "upto "}
  1831.     " step…until" {insertObject "step •• until •• : ••"}
  1832.     " exitif" {insertObject "exitif ••;"}
  1833.     " exitunless" {insertObject "exitunless ••;"}
  1834.     }
  1835. }
  1836. proc drawingProc {menu item} {
  1837.     switch $item {    
  1838.     " addto…also" {insertObject "addto •• also ••;\n••"}
  1839.     " addto…contour" {insertObject "addto •• contour •• ;\n••"}
  1840.     " addto…contour…withpen" {insertObject "addto •• contour •• withpen ••;\n••"}
  1841.     " addto…contour…withweight" {insertObject "addto •• contour •• withweight ••;\n••"}
  1842.     " addto…doublepath…withpen" {insertObject "addto •• doublepath •• withpen ••;\n••"}
  1843.     " addto…doublepath…withweight" {insertObject "addto •• doublepath •• withweight ••;\n••"}
  1844.     " cull…dropping" {insertObject "cull •• dropping (••,••);\n••"}
  1845.     " cull…dropping…withweight" {insertObject "cull •• dropping (••,••) withweight ••;\n••"}
  1846.     " cull…keeping" {insertObject "cull •• keeping (••,••);\n••"}
  1847.     " cull…keeping…withweight" {insertObject "cull •• keeping (••,••) withweight ••;\n••"}
  1848.     " cullit" {insertObject "cullit ••;\n••"}
  1849.     " cutdraw" {insertObject "cutdraw "}
  1850.     " cutoff" {insertObject "cutoff(••,••);\n••"}
  1851.     " draw" {insertObject "draw "}
  1852.     " drawdot" {insertObject "drawdot ••;\n••"}
  1853.     " erase" {insertObject "erase ••;\n••"}
  1854.     " fill" {insertObject "fill ••;\n••"}
  1855.     " filldraw" {insertObject "filldraw ••;\n••"}
  1856.     " penpos" {insertObject "penpos••(••,••);\n••"}
  1857.     " penstroke" {insertObject "penstroke ••;\n••"}
  1858.     " undraw" {insertObject "undraw ••;\n••"}
  1859.     " undrawdot" {insertObject "undrawdot ••;\n••"}
  1860.     " unfill" {insertObject "unfill ••;\n••"}
  1861.     " unfilldraw" {insertObject "unfilldraw ••;\n••"}
  1862.     }
  1863. }
  1864. proc charactersProc {menu item} {
  1865.     switch $item {    
  1866.     " beginchar…endchar" {insertObject "beginchar(\"••\",••,••,••);\"••\";\n••\nendchar;\n••"}
  1867.     " extra_beginchar" {insertObject "extra_beginchar:=\" •• \";\n••"}
  1868.     " extra_endchar" {insertObject "extra_endchar:=\" •• \";\n••"}
  1869.     }
  1870. }
  1871. proc unitsProc {menu item} {
  1872.     switch $item {    
  1873.     " blacker" {insertObject "blacker=••;\n••"}
  1874.     " fillin" {insertObject "fillin=••;\n••"}
  1875.     " o_correction" {insertObject "o_correction= ••;\n••"}
  1876.     " fix_units" {insertObject "def fix_units= ••;\nenddef\n••"}
  1877.     " mode_setup" {insertObject "mode_setup;\n"}
  1878.     " pixels_per_inchs" {insertObject "pixels_per_inchs=••;\n••"}
  1879.     }
  1880. }
  1881. proc pixellisationProc {menu item} {
  1882.     switch $item {    
  1883.     " define_pixels" {insertObject "define_pixels(••);\n••"}
  1884.     " define_blacker_pixels" {insertObject "define_blacker_pixels(••);\n••"}
  1885.     " define_good_x_pixels" {insertObject "define_good_x_pixels(••);\n••"}
  1886.     " define_good_y_pixels" {insertObject "define_good_y_pixels(••);\n••"}
  1887.     " define_corrected_pixels" {insertObject "define_corrected_pixels(••);\n••"}
  1888.     " define_horizontal_corrected_pixels" {insertObject "define_horizontal_corrected_pixels(••);\n••"}
  1889.     " define_whole_pixels" {insertObject "define_whole_pixels(••);\n••"}
  1890.     " define_whole_blacker_pixels" {insertObject "define_whole_blacker_pixels(••);\n••"}
  1891.     " define_whole_vertical_pixels" {insertObject "define_whole_vertical_pixels(••);\n••"}
  1892.     " define_whole_vertical_blacker_pixels" {insertObject "define_whole_vertical_blacker_pixels(••);\n••"}
  1893.     }
  1894. }
  1895. proc fontdefinitionsProc {menu item} {
  1896.     switch $item {    
  1897.     " charlist" {insertObject "charlist ••: •• : •• : •• : ••"}
  1898.     " extensible" {insertObject "extensible ••: ••, ••, ••, ••"}
  1899.     " font_coding_scheme" {insertObject "font_coding_scheme:= \"••\";\n••"}
  1900.     " font_extra_space" {insertObject "font_extra_space:= ••;\n••"}
  1901.     " font_identifier" {insertObject "font_identifier:= \"••\";\n••"}
  1902.     " font_normal_shrink" {insertObject "font_normal_shrink:= ••;\n••"}
  1903.     " font_normal_space" {insertObject "font_normal_space:= ••;\n••"}
  1904.     " font_normal_stretch" {insertObject "font_normal_stretch:= ••;\n••"}
  1905.     " font_quad" {insertObject "font_quad:= ••;\n••"}
  1906.     " font_size" {insertObject "font_size:= ••;\n••"}
  1907.     " font_slant" {insertObject "font_slant:= ••;\n••"}
  1908.     " font_x_height" {insertObject "font_x_height:= ••;\n••"}
  1909.     " fontdimen" {insertObject "fontdimen ••: ••, ••, ••, ••\n••"}
  1910.     " headerbytes" {insertObject "headerbytes ••: ••, ••, ••, ••"}
  1911.     " ligtable" {insertObject "ligtable \"••\" : \"••\" =: oct\"••\";\n••"}
  1912.     " kern" {insertObject "kern ••\#••"}
  1913.     }
  1914. }
  1915. proc displayingProc {menu item} {
  1916.     switch $item {    
  1917.     " currentwindow" {insertObject "currentwindow:= ••;\n••"}
  1918.     " display…inwindow" {insertObject "display •• inwindow ••;\n••"}
  1919.     " openwindow…from…to…at" {insertObject "openwindow •• from (••,••) to (••,••) at (••,••);\n••"}
  1920.     " screen_cols" {insertObject "screen_cols:= ••;\n••"}
  1921.     " screen_rows" {insertObject "screen_rows:= ••;\n••"}
  1922.     " screenrule" {insertObject "screenrule(••,••);\n••"}
  1923.     }
  1924. }
  1925. proc outputProc {menu item} {
  1926.     switch $item {    
  1927.     " openit" {insertObject "openit;\n"}
  1928.     " shipit" {insertObject "shipit;\n"}
  1929.     " showit" {insertObject "showit;\n"}
  1930.     " labels" {insertObject "labels(••);\n••"}
  1931.     " labels…range…thru" {insertObject "labels(range •• thru ••);\n••"}
  1932.     " penlabels" {insertObject "penlabels(••);\n••"}
  1933.     " makelabel" {insertObject "makelabel(\"••\",••);\n••"}
  1934.     " makegrid..." {mkgridProc}
  1935.     " proofoffset" {insertObject "proofoffset(••,••);\n••"}
  1936.     " proofrule" {insertObject "proofrule(••,••);\n••"}
  1937.     " proofrulethickness" {insertObject "proofrulethickness:=••;\n••"}
  1938.     " grayfont" {insertObject "grayfont \"••\";\n••"}
  1939.     " labelfont" {insertObject "labelfont \"••\";\n••"}
  1940.     " slantfont" {insertObject "slantfont \"••\";\n••"}
  1941.     " titlefont" {insertObject "titlefont \"••\";\n••"}
  1942.     }
  1943. }
  1944. proc debuggingProc {menu item} {
  1945.     switch $item {    
  1946.     " errhelp" {insertObject "errhelp "}
  1947.     " errmessage" {insertObject "errmessage \"••\";\n••"}
  1948.     " message" {insertObject "message \"••\";\n••"}
  1949.     " stop" {insertObject "stop;\n"}
  1950.     " show" {insertObject "show ••;\n••"}
  1951.     " showdependencies" {insertObject "showdependencies;\n"}
  1952.     " showstats" {insertObject "showstats;\n"}
  1953.     " showtoken" {insertObject "showtoken ••;\n••"}
  1954.     " showvariable" {insertObject "showvariable ••;\n••"}
  1955.     " loggingall" {insertObject "loggingall:= ••\n••"}
  1956.     " tracingall" {insertObject "tracingall:= ••\n••"}
  1957.     " tracingnone" {insertObject "tracingnone:= ••\n••"}
  1958.     " batchmode" {insertObject "batchmode;\n••"}
  1959.     " errorstopmode" {insertObject "errorstopmode;\n••"}
  1960.     " nonstopmode" {insertObject "nonstopmode;\n••"}
  1961.     " scrollmode" {insertObject "scrollmode;\n••"}
  1962.     }
  1963. }
  1964. proc miscProc {menu item} {
  1965.     switch $item {    
  1966.     " capsule_def" {insertObject "capsule_def ••;\n••"}
  1967.     " expandafter" {insertObject "expandafter "}
  1968.     " gobble" {insertObject "gobble "}
  1969.     " gobbled" {insertObject "gobbled "}
  1970.     " interact" {insertObject "interact;\n••"}
  1971.     " numtok" {insertObject "numtok "}
  1972.     " scantokens" {insertObject "scantokens "}
  1973.     " special" {insertObject "special \" ••\";\n••"}
  1974.     " numspecial" {insertObject "numspecial ••;\n••"}
  1975.     }
  1976. }
  1977. proc varintProc {menu item} {
  1978.     switch $item {    
  1979.     " autorounding" {insertObject "autorounding:= ••;\n••"}
  1980.     " designsize" {insertObject "designsize:= ••;\n••"}
  1981.     " fontmaking" {insertObject "fontmaking:= ••;\n••"}
  1982.     " granularity" {insertObject "granularity:= ••;\n••"}
  1983.     " pausing" {insertObject "pausing:= ••;\n••"}
  1984.     " proofing" {insertObject "proofing:= ••;\n••"}
  1985.     " showstopping" {insertObject "showstopping:= ••;\n••"}
  1986.     " smoothing" {insertObject "smoothing:= ••;\n••"}
  1987.     " charcode" {insertObject "charcode:= ••;\n••"}
  1988.     " chardp" {insertObject "chardp:= ••;\n••"}
  1989.     " chardx" {insertObject "chardx:= ••;\n••"}
  1990.     " chardy" {insertObject "chardy:= ••;\n••"}
  1991.     " charext" {insertObject "charext:= ••;\n••"}
  1992.     " charht" {insertObject "charht:= ••;\n••"}
  1993.     " charic" {insertObject "charic:= ••;\n••"}
  1994.     " charwd" {insertObject "charwd:= ••;\n••"}
  1995.     " hppp" {insertObject "hppp:= ••;\n••"}
  1996.     " vppp" {insertObject "vppp:= ••;\n••"}
  1997.     " xoffset" {insertObject "xoffset:= ••;\n••"}
  1998.     " yoffset" {insertObject "yoffset:= ••;\n••"}
  1999.     " day" {insertObject "day;"}
  2000.     " month" {insertObject "month;"}
  2001.     " year" {insertObject "year;"}
  2002.     " time" {insertObject "time;"}
  2003.     " tracingcapsules" {insertObject "tracingcapsules:= ••;\n••"}
  2004.     " tracingchoices" {insertObject "tracingchoices:= ••;\n••"}
  2005.     " tracingcommands" {insertObject "tracingcommands:= ••;\n••"}
  2006.     " tracingedges" {insertObject "tracingedges:= ••;\n••"}
  2007.     " tracingequations" {insertObject "tracingequations:= ••;\n••"}
  2008.     " tracingmacros" {insertObject "tracingmacros:= ••;\n••"}
  2009.     " tracingonline" {insertObject "tracingonline:= ••;\n••"}
  2010.     " tracingoutput" {insertObject "tracingoutput:= ••;\n••"}
  2011.     " tracingpens" {insertObject "tracingpens:= ••;\n••"}
  2012.     " tracingrestores" {insertObject "tracingrestores:= ••;\n••"}
  2013.     " tracingspecs" {insertObject "tracingspecs:= ••;\n••"}
  2014.     " tracingstats" {insertObject "tracingstats:= ••;\n••"}
  2015.     " tracingtitles" {insertObject "tracingtitles:= ••;\n••"}
  2016.     " turningcheck" {insertObject "turningcheck:= ••;\n••"}
  2017.     " warningcheck" {insertObject "warningcheck:= ••;\n••"}
  2018.     }
  2019. }
  2020.  
  2021. # In this proc, choose the number of horizontal and vertical lines
  2022. # in a grid
  2023. proc mkgridProc {} {
  2024.     set macroName "makegrid"
  2025.     beep
  2026.     catch {prompt "$macroName:  how many x-coordinates ?" 3} numbx
  2027.     if {$numbx == "cancel"} {
  2028.         return
  2029.     } elseif {![isPositiveInteger $numbx]} {
  2030.         beep
  2031.         message "invalid input: please enter a positive integer"
  2032.         return
  2033.     }
  2034.     catch {prompt "$macroName:  how many y-coordinates ?" 3} numby
  2035.     if {$numby == "cancel"} {
  2036.         return
  2037.     } elseif {![isPositiveInteger $numby]} {
  2038.         beep
  2039.         message "invalid input: please enter a positive integer"
  2040.         return
  2041.     }
  2042.     if {$numbx && $numby} {
  2043.         set body "makegrid(••"
  2044.         for {set i 1} {$i < $numbx} {incr i} {
  2045.             append body ",••"
  2046.         }
  2047.         append body ")(••"
  2048.         for {set i 1} {$i < $numby} {incr i} {
  2049.             append body ",••"
  2050.         }
  2051.         append body ");\n••"
  2052.     } else {
  2053.         set body "••\r"
  2054.     }
  2055.     insertObject $body
  2056. }
  2057.  
  2058. # In this proc, choose the number of points on a flex path
  2059. proc mkflexProc {} {
  2060.     set macroName "flex"
  2061.     beep
  2062.     catch {prompt "$macroName:  how many points on the flex-path ?" 3} numbp
  2063.     if {$numbp == "cancel"} {
  2064.         return
  2065.     } elseif {![isPositiveInteger $numbp]} {
  2066.         beep
  2067.         message "invalid input: please enter a positive integer"
  2068.         return
  2069.     }
  2070.     if {$numbp} {
  2071.         set body "flex(••"
  2072.         for {set i 1} {$i < $numbp} {incr i} {
  2073.             append body ",••"
  2074.         }
  2075.         append body ") ••"
  2076.     } else {
  2077.         set body "••\r"
  2078.     }
  2079.     insertObject $body
  2080. }
  2081.  
  2082.  
  2083. #########   Syntax Colorizing  ###########
  2084.  
  2085. set    mfKeyWords    { 
  2086. abs addto also and angle at autorounding batchmode beginchar begingroup blacker 
  2087. blankpicture boolean bot bye byte capsule_def ceilling change_width char character 
  2088. charcode chardp chardx chardy charexists charext charht charic charlist 
  2089. charwd checksum clear_pen_memory clearit clearpen clearxy codingscheme  comment contour 
  2090. cosd counterclockwise cull cullit currentpen currentpicture currenttransform 
  2091. currentwindow cutdraw cutoff cycle day decimal decr def define_blacker_pixels 
  2092. define_good_x_pixels define_good_y_pixels define_pixels define_whole_pixels designsize 
  2093. direction directionpoint directiontime display displaying ditto dotprod doublepath downto 
  2094. draw drawdot dropping else elseif end endchar enddef endfor endgroup eps epsilon 
  2095. erase errhelp errmessage errorstopmode exitif exitunless extensible extra_beginchar extra_endchar 
  2096. extraspace face false family fi fill filldraw fillin fix_units flex floor font_coding_scheme font_extra_space 
  2097. font_identifier font_normal_shrink font_normal_space font_normal_stretch font_quad 
  2098. font_size font_slant font_x_height fontdimen fontmaking forever forsuffixes from 
  2099. fullcircle gfcorners gobble gobbled good.bot good.lft good.rt good.top good.x good.y 
  2100. granularity grayfont halfcircle headerbytes hex hide hppp hround identity if imagerules 
  2101. incr infinity input interact interim interpath intersectionpoint intersectiontimes 
  2102. inverse inwindow italcorr jobname join_radius keeping kern known label labelfont labels length 
  2103. let lft ligtable loggingall makegrid makelabel makepath makepen max message mexp min 
  2104. mlog mode_setup month nodisplays nonstopmode normaldeviate not notransforms 
  2105. nullpen nullpicture numeric numspecial numtok o_correction oct 
  2106. odd openit openwindow or pair path pausing pen pen_bot pen_lft 
  2107. pen_rt pen_top pencircle penlabels penoffset penpos penrazor penspeck pensquare 
  2108. penstroke pickup picture pixels_per_inchs point postcontrol precontrol primarydef 
  2109. proofing proofoffset proofrule proofrulethickness quad quartercircle range readstring reflectedabout 
  2110. reverse rotated rotatedaround round rt save savepen scaled scantokens screen_cols 
  2111. screen_rows screenchars screenrule screenstrokes scrollmode secondarydef shifted shipit show 
  2112. showdependencies showit showstats showstopping showtoken showvariable shrink sind slant slanted 
  2113. slantfont smoothing solve space special sqrt step stop str stretch string subpath substring superellipse 
  2114. tensepath tertiarydef thru time titlefont to tolerance top totalweight tracingall tracingcapsules 
  2115. tracingchoices tracingcommands tracingedges tracingequations tracingmacros tracingnone 
  2116. tracingonline tracingoutput tracingpens tracingrestores tracingspecs tracingstats 
  2117. tracingtitles tracingtitles transform transformed true turningcheck turningnumber 
  2118. undraw undrawdot unfill unfilldraw uniformdeviate unitpixel unitsquare unknown until 
  2119. upto vardef vppp vround warningcheck whatever withpen withweight xheight xoffset xpart xscaled 
  2120. xxpart xypart year yoffset yoffset ypart yscaled yxpart yypart zscaled 
  2121. }
  2122.  
  2123.  
  2124. regModeKeywords  -e {%} -c $MfmodeVars(commentColor) \
  2125.   -k $MfmodeVars(keywordColor)  -s $MfmodeVars(stringColor) Mf $mfKeyWords
  2126. unset mfKeyWords
  2127.  
  2128. ############   Completions  ################
  2129.  
  2130. set completions(Mf) {completion::electric}
  2131.  
  2132. set Mfelectrics(for)  " •• : •• endfor;\n••"
  2133. set Mfelectrics(beginchar)   "(\"••\",••,••,••);\"••\";\n••\nendchar;\n••"
  2134. set Mfelectrics(def)   " ••=\n••\nenddef;\n••"
  2135. set Mfelectrics(primarydef)   " ••=\n••\nenddef;\n••"
  2136. set Mfelectrics(secondarydef)   " ••=\n••\nenddef;\n••"
  2137. set Mfelectrics(tertiarydef)   " ••=\n••\nenddef;\n••"
  2138. set Mfelectrics(vardef)   " ••=\n••\nenddef;\n••"
  2139. set Mfelectrics(begingroup)   " ••\nendgroup;\n••"
  2140. set Mfelectrics(forever)   " •• endfor;\n••"
  2141. set Mfelectrics(forsuffixes)   " •• : •• endfor;\n••"
  2142. set Mfelectrics(if)   " •• : •• fi\n••"
  2143.  
  2144.  
  2145. ############   Key Bindings  ################
  2146.  
  2147. # Are there bindings necessary in this mode ?
  2148.  
  2149. ##########    File Marking  ############
  2150. # All the "def" and "vardef" definitions in a mf source file will be marked in the "M" 
  2151. # pop-up menu (top right of the current window). All the beginchar/endchar groups will 
  2152. # be marked too (even if you changed the name of this environment in the mode specific prefs :
  2153. # if you chose to call them "myfontchar" then all the "myfontchar" instructions will be marked)
  2154.  
  2155. proc Mf::MarkFile {} {
  2156.     global MfmodeVars
  2157.     set bgnch $MfmodeVars(userBeginchar)
  2158.     set end [maxPos]
  2159.     set pos 0
  2160.      while {![catch {search -f 1 -r 1 -m 0 -i 0 {^'$bgnch'[ _\w\d\(\"]*|^def[ _\w]*|^vardef[ _\w]*} $pos} res]} {
  2161.         set start [lindex $res 0]
  2162.         set end [lindex $res 1]
  2163.         set txt [getText [expr $start - 1] $end]
  2164.         set pos [nextLineStart $start]
  2165.         set inds($txt) [lineStart [expr $start - 1]]
  2166.     }
  2167.  
  2168.     if {[info exists inds]} {
  2169.          foreach f [lsort [array names inds]] {
  2170.             set next [nextLineStart $inds($f)]
  2171.             setNamedMark $f $inds($f) $next $next
  2172.         }
  2173.     }
  2174.     set end [maxPos]
  2175.     set pos 0
  2176.      while {![catch {search -f 1 -r 0 -m 0 -i 0 $bgnch $pos} res]} {
  2177.         set start [lindex $res 0]
  2178.         set end [nextLineStart $start]
  2179.         set txt [getText [expr $start - 1] $end]
  2180.         set pos [nextLineStart $start]
  2181.         set inds($txt) [lineStart [expr $start - 1]]
  2182.     }
  2183.  
  2184.     if {[info exists inds]} {
  2185.          foreach f [lsort [array names inds]] {
  2186.             set next [nextLineStart $inds($f)]
  2187.             setNamedMark $f $inds($f) $next $next
  2188.         }
  2189.     }
  2190. }
  2191.  
  2192.